Unit
lmdclass

Declaration

TLMDTimerPoolEvent = procedure(Sender:TObject; Ident:Word; Counter:LongInt) of object;